object Form1: TForm1
  Left = 124
  Top = 177
  Width = 551
  Height = 391
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    543
    364)
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 24
    Top = 54
    Width = 493
    Height = 79
    Anchors = [akLeft, akTop, akRight]
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 24
    Top = 12
    Width = 75
    Height = 25
    Caption = 'Close/Open'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 24
    Top = 150
    Width = 493
    Height = 193
    Anchors = [akLeft, akTop, akRight, akBottom]
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Button3: TButton
    Left = 108
    Top = 12
    Width = 91
    Height = 25
    Caption = 'Update Values'
    TabOrder = 3
    OnClick = Button3Click
  end
  object IfxConnection1: TIfxConnection
    Params.Strings = (
      'CC8BITLEVEL='
      'CLIENT_LOCALE=en_US.CP1252'
      'COLLCHAR='
      'CONRETRY='
      'CONTIME='
      'DATABASE=test_log@ol_fisher'
      'DB_LOCALE=en_US.1252'
      'DBALSBC='
      'DBANSIWARN='
      'DBAPICODE='
      'DBASCIIBC='
      'DBCENTURY='
      'DBCODESET='
      'DBCONNECT='
      'DBCSCONV='
      'DBCSOVERRIDE='
      'DBCSWIDTH='
      'DBDATE='
      'DBFLTMSK='
      'DBLANG='
      'DBMONEY=$.'
      'DBMONEYSCALE='
      'DBNLS='
      'DBPATH='
      'DBSS2='
      'DBSS3='
      'DBTEMP='
      'DBTIME='
      'DELIMIDENT='
      'ESQLMF='
      'FET_BUFF_SIZE='
      'GL_DATE='
      'GL_DATETIME='
      'IFX_AUTOFREE='
      'IFX_DEFERRED_PREPARE='
      'IFX_USE_PREC_16='
      'INFORMIXDIR=C:\Program Files\Informix\Client-SDK'
      'INFORMIXSERVER=ol_fisher'
      'INFORMIXSQLHOSTS='
      'LANG='
      'LC_COLLATE='
      'LC_CTYPE='
      'LC_MONETARY='
      'LC_NUMERIC='
      'LC_TIME='
      'NODEFDAC='
      'NOZEROMDY='
      'OPTMSG='
      'OPTOFC=1'
      'WIN32HOST='
      'WIN32OPTIONS='
      'WIN32PROTOCOL='
      'WIN32SERVICE='
      'WIN32PASS='
      'WIN32USER=')
    Connected = True
    LoginPrompt = False
    Left = 216
    Top = 12
  end
  object IfxQuery1: TIfxQuery
    Connection = IfxConnection1
    AfterOpen = IfxQuery1AfterOpen
    SQL.Strings = (
      'select * from datetime_test')
    UpdateObject = IfxUpdateSQL1
    Left = 246
    Top = 12
  end
  object IfxUpdateSQL1: TIfxUpdateSQL
    ModifySQL.Strings = (
      'UPDATE datetime_test'
      'SET'
      '  year_to_fr5 = :year_to_fr5,'
      '  mon_to_fr5 = :mon_to_fr5,'
      '  day_to_fr5 = :day_to_fr5,'
      '  hour_to_fr5 = :hour_to_fr5,'
      '  min_to_fr5 = :min_to_fr5,'
      '  sec_to_fr5 = :sec_to_fr5,'
      '  year_to_fr4 = :year_to_fr4,'
      '  mon_to_fr4 = :mon_to_fr4,'
      '  day_to_fr4 = :day_to_fr4,'
      '  hour_to_fr4 = :hour_to_fr4,'
      '  min_to_fr4 = :min_to_fr4,'
      '  sec_to_fr4 = :sec_to_fr4,'
      '  year_to_fr3 = :year_to_fr3,'
      '  mon_to_fr3 = :mon_to_fr3,'
      '  day_to_fr3 = :day_to_fr3,'
      '  hour_to_fr3 = :hour_to_fr3,'
      '  min_to_fr3 = :min_to_fr3,'
      '  sec_to_fr3 = :sec_to_fr3,'
      '  year_to_fr2 = :year_to_fr2,'
      '  mon_to_fr2 = :mon_to_fr2,'
      '  day_to_fr2 = :day_to_fr2,'
      '  hour_to_fr2 = :hour_to_fr2,'
      '  min_to_fr2 = :min_to_fr2,'
      '  sec_to_fr2 = :sec_to_fr2,'
      '  year_to_fr1 = :year_to_fr1,'
      '  mon_to_fr1 = :mon_to_fr1,'
      '  day_to_fr1 = :day_to_fr1,'
      '  hour_to_fr1 = :hour_to_fr1,'
      '  min_to_fr1 = :min_to_fr1,'
      '  sec_to_fr1 = :sec_to_fr1,'
      '  year_to_sec = :year_to_sec,'
      '  mon_to_sec = :mon_to_sec,'
      '  day_to_sec = :day_to_sec,'
      '  hour_to_sec = :hour_to_sec,'
      '  min_to_sec = :min_to_sec,'
      '  sec_to_sec = :sec_to_sec,'
      '  year_to_min = :year_to_min,'
      '  mon_to_min = :mon_to_min,'
      '  day_to_min = :day_to_min,'
      '  hour_to_min = :hour_to_min,'
      '  min_to_min = :min_to_min,'
      '  year_to_hour = :year_to_hour,'
      '  mon_to_hour = :mon_to_hour,'
      '  day_to_hour = :day_to_hour,'
      '  hour_to_hour = :hour_to_hour,'
      '  year_to_day = :year_to_day,'
      '  mon_to_day = :mon_to_day,'
      '  day_to_day = :day_to_day,'
      '  year_to_mon = :year_to_mon,'
      '  mon_to_mon = :mon_to_mon,'
      '  year_to_year = :year_to_year'
      'WHERE'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'INSERT INTO datetime_test'
      
        '  (year_to_fr5, mon_to_fr5, day_to_fr5, hour_to_fr5, min_to_fr5,' +
        ' sec_to_fr5, '
      
        '   year_to_fr4, mon_to_fr4, day_to_fr4, hour_to_fr4, min_to_fr4,' +
        ' sec_to_fr4, '
      
        '   year_to_fr3, mon_to_fr3, day_to_fr3, hour_to_fr3, min_to_fr3,' +
        ' sec_to_fr3, '
      
        '   year_to_fr2, mon_to_fr2, day_to_fr2, hour_to_fr2, min_to_fr2,' +
        ' sec_to_fr2, '
      
        '   year_to_fr1, mon_to_fr1, day_to_fr1, hour_to_fr1, min_to_fr1,' +
        ' sec_to_fr1, '
      
        '   year_to_sec, mon_to_sec, day_to_sec, hour_to_sec, min_to_sec,' +
        ' sec_to_sec, '
      
        '   year_to_min, mon_to_min, day_to_min, hour_to_min, min_to_min,' +
        ' year_to_hour, '
      
        '   mon_to_hour, day_to_hour, hour_to_hour, year_to_day, mon_to_d' +
        'ay, day_to_day, '
      '   year_to_mon, mon_to_mon, year_to_year)'
      'VALUES'
      
        '  (:year_to_fr5, :mon_to_fr5, :day_to_fr5, :hour_to_fr5, :min_to' +
        '_fr5, :sec_to_fr5, '
      
        '   :year_to_fr4, :mon_to_fr4, :day_to_fr4, :hour_to_fr4, :min_to' +
        '_fr4, :sec_to_fr4, '
      
        '   :year_to_fr3, :mon_to_fr3, :day_to_fr3, :hour_to_fr3, :min_to' +
        '_fr3, :sec_to_fr3, '
      
        '   :year_to_fr2, :mon_to_fr2, :day_to_fr2, :hour_to_fr2, :min_to' +
        '_fr2, :sec_to_fr2, '
      
        '   :year_to_fr1, :mon_to_fr1, :day_to_fr1, :hour_to_fr1, :min_to' +
        '_fr1, :sec_to_fr1, '
      
        '   :year_to_sec, :mon_to_sec, :day_to_sec, :hour_to_sec, :min_to' +
        '_sec, :sec_to_sec, '
      
        '   :year_to_min, :mon_to_min, :day_to_min, :hour_to_min, :min_to' +
        '_min, :year_to_hour, '
      
        '   :mon_to_hour, :day_to_hour, :hour_to_hour, :year_to_day, :mon' +
        '_to_day, '
      '   :day_to_day, :year_to_mon, :mon_to_mon, :year_to_year)')
    DeleteSQL.Strings = (
      'DELETE FROM datetime_test'
      'WHERE'
      '  id = :OLD_id')
    Left = 276
    Top = 12
  end
  object DataSource1: TDataSource
    DataSet = IfxQuery1
    Left = 306
    Top = 12
  end
end
